home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24b.d64 / demo sort string (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  108 lines
  1. 1000 N=20:DIMA$(N):PRINT"[147]UNSORTIERTE STRINGS WERDEN GENERIERT"
  2. 1010 FORI=1TON:A$="":FORJ=1TO  20:B$=CHR$(INT(RND(0)*26+65)):A$=A$+B$
  3. 1020 NEXT:A$(I)=A$:NEXT
  4. 1030 PRINT"[147]UNSORTIERT:":PRINT"[184][184][184][184][184][184][184][184][184][184]":FORI=1TON:PRINTA$(I):NEXT
  5. 1040 PRINT"SORTIEREN: TASTE DRUECKEN"
  6. 1045 GET A$:IF A$=""THEN1045
  7. 1050 POKE40352,65:REM 1.BUCHST.D.VAR
  8. 1060 POKE40353,128:REM 2.STELLE LEER
  9. 1070 POKE40355,INT(N/256)   :REM N
  10. 1080 POKE40354,N-INT(N/256)*256:REM N
  11. 1090 SYS40371:REM 9DB3
  12. 1100 FE=PEEK(40356) :REM   FEHLERFLAG
  13. 1110 IFFE=1THENPRINT"FEHLER - ARRAY NICHT GEFUNDEN":END
  14. 1120 IFFE=2THENPRINT"FEHLER - ARRAY NICHT EINDIMENSIONAL"
  15. 1140 PRINT"[147]SORTIERT:":PRINT"[184][184][184][184][184][184][184][184]":FORI=1TON:PRINTA$(I):NEXT:END
  16. 1150 FORI=1TON:PRINTA$(I):NEXT:END
  17. 1200 :
  18. 1300 :
  19. 50000 REM******************************
  20. 50007 FORF=40371TOF+429:READA:POKEF,A:NEXT
  21. 50008 RETURN
  22. 50009 DATA173,160,157,41,127
  23. 50010 DATA141,160,157,173,161
  24. 50020 DATA157,9,128,141,161
  25. 50030 DATA157,169,0,141,164
  26. 50040 DATA157,165,47,133,180
  27. 50050 DATA165,48,133,181,160
  28. 50060 DATA0,177,180,205,160
  29. 50070 DATA157,208,8,200,177
  30. 50080 DATA180,205,161,157,240
  31. 50090 DATA42,160,2,177,180
  32. 50100 DATA141,165,157,200,177
  33. 50110 DATA180,141,166,157,24
  34. 50120 DATA165,180,109,165,157
  35. 50130 DATA133,180,165,181,109
  36. 50140 DATA166,157,133,181,197
  37. 50150 DATA50,144,207,240,205
  38. 50160 DATA169,1,141,164,157
  39. 50170 DATA76,224,158,160,4
  40. 50180 DATA177,180,201,1,240
  41. 50190 DATA8,169,2,141,164
  42. 50200 DATA157,76,224,158,24
  43. 50210 DATA165,180,105,7,133
  44. 50220 DATA180,165,181,105,0
  45. 50230 DATA133,181,173,162,157
  46. 50240 DATA141,177,157,173,163
  47. 50250 DATA157,141,178,157,173
  48. 50260 DATA178,157,208,12,173
  49. 50270 DATA177,157,240,4,201
  50. 50280 DATA1,208,3,76,224
  51. 50290 DATA158,78,178,157,110
  52. 50300 DATA177,157,56,173,162
  53. 50310 DATA157,237,177,157,141
  54. 50320 DATA175,157,173,163,157
  55. 50330 DATA237,178,157,141,176
  56. 50340 DATA157,162,0,138,141
  57. 50350 DATA168,157,141,169,157
  58. 50360 DATA173,177,157,141,170
  59. 50370 DATA157,173,178,157,141
  60. 50380 DATA171,157,238,168,157
  61. 50390 DATA208,3,238,169,157
  62. 50400 DATA173,169,157,205,176
  63. 50410 DATA157,240,4,176,85
  64. 50420 DATA144,10,173,168,157
  65. 50430 DATA205,175,157,240,2
  66. 50440 DATA176,73,238,170,157
  67. 50450 DATA208,3,238,171,157
  68. 50460 DATA160,3,165,180,133
  69. 50470 DATA184,133,186,165,181
  70. 50480 DATA133,185,133,187,24
  71. 50490 DATA165,184,109,168,157
  72. 50500 DATA133,184,165,185,109
  73. 50510 DATA169,157,133,185,24
  74. 50520 DATA165,186,109,170,157
  75. 50530 DATA133,186,165,187,109
  76. 50540 DATA171,157,133,187,136
  77. 50550 DATA208,223,32,225,158
  78. 50560 DATA173,167,157,240,163
  79. 50570 DATA48,161,32,80,159
  80. 50580 DATA162,1,76,115,158
  81. 50590 DATA138,208,129,76,52
  82. 50600 DATA158,96,160,0,140
  83. 50610 DATA167,157,177,184,141
  84. 50620 DATA172,157,177,186,141
  85. 50630 DATA173,157,200,152,205
  86. 50640 DATA172,157,240,2,176
  87. 50650 DATA15,205,173,157,240
  88. 50660 DATA25,144,23,169,1
  89. 50670 DATA141,167,157,76,79
  90. 50680 DATA159,205,173,157,240
  91. 50690 DATA2,176,64,169,255
  92. 50700 DATA141,167,157,76,79
  93. 50710 DATA159,140,165,157,160
  94. 50720 DATA1,177,184,133,182
  95. 50730 DATA200,177,184,133,183
  96. 50740 DATA172,165,157,136,177
  97. 50750 DATA182,141,174,157,140
  98. 50760 DATA165,157,160,1,177
  99. 50770 DATA186,133,182,200,177
  100. 50780 DATA186,133,183,172,165
  101. 50790 DATA157,177,182,200,205
  102. 50800 DATA174,157,208,3,76
  103. 50810 DATA240,158,144,180,76
  104. 50820 DATA15,159,96,160,2
  105. 50830 DATA177,184,72,177,186
  106. 50840 DATA145,184,104,145,186
  107. 50850 DATA136,16,243,96,0
  108.